########################################### INETERPRETATION DES MESSAGES RECUS #


################################################################################
# Procedure recuperant le type de message
################################################################################
proc proc_getMessageType { param_message } {
	regexp {^(.*?)\|} $param_message trouve var_messageType
	return $var_messageType
}

################################################################################
# Procedure recuperant le message sans le type
################################################################################
proc proc_getMessageContent { param_message } {
	regexp {^(.*?)\|(.*)$} $param_message trouve var_messageContent2 var_messageContent
	return $var_messageContent
}


## TYPE "MESSAGE" ##############################################################

################################################################################
# Procedure de recuperation de l'id du salon dans le message
################################################################################
proc proc_getSalonIdFromMessage {param_message } {
	regexp {^(.*?)\|} $param_message trouve var_salonId
	return $var_salonId
}

################################################################################
# Procedure de recuperation du corps du salon dans le message
################################################################################
proc proc_getCorpsFromMessage {param_message } {
	regexp {\|(.*?)$} $param_message trouve var_corps
	return $var_corps
}

################################################################################
# Procedure de transformation du message en tableau
################################################################################
proc proc_buildArrayFromMessage {param_message } {


	#regexp {(.*?)\|} $var_p_message trouve var_messageArray(salonId)
	#regexp {\|(.*?)\|} $var_p_message trouve var_messageArray(NoeudId)
	#regexp {\|(.*?)$} $var_p_message trouve var_messageArray(corps)
	regexp \
		{^(.*?)\|(.*?)\|(.*?)$} $param_message \
		trouve \
		var_messageArray(salonId) var_messageArray(noeudId) var_messageArray(corps)
	#parray var_messageArray
	return [array get var_messageArray]
}


## TYPE "PING" ##############################################################
proc proc_parsePing { param_message } {
	regexp \
		{^(.*?)\|(.*?)$} $param_message \
		trouve \
		var_messageArray(emmeteurId) var_messageArray(dateEnvoi)
	return [array get var_messageArray]
}

proc proc_parseReponsePing { param_message } {
	regexp \
		{^(.*?)\|(.*?)\|(.*?)$} $param_message \
		trouve \
		var_messageArray(emmeteurId) var_messageArray(destinataireId) var_messageArray(dateEnvoi)
	#parray var_messageArray
	return [array get var_messageArray]
}

## TYPE "SALONS" ##############################################################
proc proc_parseSalonsPing { param_message } {
	regexp \
		{^(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)$} $param_message \
		trouve \
		var_messageArray(noeudSourceId) var_messageArray(centreId) \
		var_messageArray(distance) var_messageArray(listeSalons) \
		var_messageArray(listeVoisins)
	return [array get var_messageArray]
}
